home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 19 Adventure Games / SURGAD.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  22.6 KB  |  639 lines
  1. 2 DIMTL$(22):DIMTN(22):IFPA>2THENGOTO10
  2. 3 DIMT(13):FORA=1TO13:T(A)=0:NEXTA:CH=350:E=1:HR=85:BR=70:BW=90:PA=0:BC=53280
  3. 10 RESTORE:FORZ=1TO22:READO:READO$:TL$(Z)=O$:TN(Z)=O:NEXTZ:IFPA>2THENGOTO21
  4. 20 POKE53280,9:POKE53281,0:E$=" BONE "
  5. 21 FORA=1TO45
  6. 22 PRINT"[147][158]SURGERY ADVENTURE"
  7. 23 PRINT"[159]SURGERY ADVENTURE"
  8. 24 PRINT"[158]BY ANDREW BLEVINS"
  9. 25 PRINT"[159]BY ANDREW BLEVINS"
  10. 26 NEXTA:FORA=1TO1000:NEXTA:IFPA>2THENGOTO35
  11. 27 FORA=1TO8:PRINTCHR$(13):NEXTA
  12. 28 PRINT"[144]IN THIS ADVENTURE IN THE OPERATING ROOM YOU WILL HAVE TO TRY";
  13. 29 PRINT" TO SAVE THE LIFE OFYOUR PATIENT WHO WILL ALWAYS BE IN GRAVEDANGER";
  14. 30 PRINT" OF DEATH AND YOU NEED TO LEARN   HOW TO SAVE EACH PATIENT FROM HIS ";
  15. 31 PRINT"EVERY AILMENT RANGING FROM BROKEN BONES TO    HEART SURGERY. ";
  16. 32 PRINT"LEARN EACH PROCEDURE AND GOOD LUCK!"
  17. 33 FORA=55576TO55936:POKEA,1:FORB=1TO15:NEXTB:NEXTA
  18. 35 PRINT"[147]       ***DOCTORS APPLICATION***"
  19. 36 INPUT"APPLICANTS NAME:[153]";N$
  20. 37 PRINT"[144]BY ENTERING YOUR NAME YOU HAVE BEEN     ACCEPTED AS A PRACTICING ";
  21. 38 PRINT"DOCTOR OF      MEDICINE AND ARE ALLOWED A HOSPITAL     TO CARRY ";
  22. 39 PRINT"OUT YOUR NEW FOUND PROFESSION."
  23. 40 PRINT"GO TO SUPPLY SHOP WITH $350.00 AND THEN BEGIN IN ROOM 2 DR. ";N$"!"
  24. 41 FORA=55536TO55856:POKEA,1:FORB=1TO20:NEXTB
  25. 43 NEXTA:FORA=1TO1000:NEXTA
  26. 44 GOTO1000
  27. 45 PRINT"[147]           *EXIT SUPPLY SHOP*"
  28. 46 FORA=1TO1500:NEXTA
  29. 47 IFE=1THENPOKE53280,1:PRINT"[147]***OPERATING ROOM 2 FOR BONE REPAIR":GOTO185
  30. 48 IFE=2THENPOKE53280,11:PRINT"[147]***OPERATING ROOM 7 FOR LUNG SURGERY":GOTO310
  31. 49 IFE=3THENPOKE53280,2:PRINT"[147]***OPERATING ROOM 11 FOR HEART SURGERY":GOTO470
  32. 185 FORA=1TO990:NEXTA:IFMN=1THEN205
  33. 186 IFMN=2THEN211
  34. 187 IFMN=3THEN217
  35. 188 IFMN=4THEN223
  36. 189 IFMN=5THEN229
  37. 190 IFMN=6THEN235
  38. 191 IFMN=7THEN241
  39. 192 IFMN=8THEN247
  40. 193 IFMN=9THEN253
  41. 194 IFMN=10THEN259
  42. 195 IFMN=11THEN265
  43. 196 IFMN=12THEN271
  44. 197 IFMN=13THEN277
  45. 198 IFMN=14THEN283
  46. 199 IFMN=15THEN289
  47. 200 IFMN=16THEN295
  48. 201 IFMN=17THEN301
  49. 205 PRINT"[147]DOCTOR,DOCTOR I HAVE A BROKEN BONE.     USE A FLUID FIRST?"
  50. 206 GOSUB1300
  51. 208 IFT$="PL"THENMN=2:Z=Z-1:GOTO185
  52. 209 IFT$="OX"THENMN=3:X=X-1:BR=BR+5:BW=BW+3:GOTO185
  53. 210 GOTO185
  54. 211 PRINT"[147]NOW YOUR PATIENT IS ASLEEP AND YOU BEGINWITH YOUR SCALPEL OR OXYGEN"
  55. 212 GOSUB1300
  56. 214 IFT$="SSS"THENMN=6:BW=BW-6:GOTO185
  57. 215 IFT$="OX"THENMN=4:X=X-1:BR=BR+3:BW=BW+4:GOTO185
  58. 216 GOTO185
  59. 217 PRINT"[147]YOUR PATIENT IS WELL AWAKE AND IN PAIN  MAKE AN INCISION OR PLASMA!?"
  60. 218 GOSUB1300
  61. 220 IFT$="SSS"THENHR=HR-3:MN=11:GOTO185
  62. 221 IFT$="PL"THENZ=Z-1:MN=12:HR=HR+4:GOTO185
  63. 222 GOTO185
  64. 223 PRINT"[147]YOUR PATIENT IS WORSE I THINK YOU SHOULDUSE YOUR SEW OR MENDER?"
  65. 224 GOSUB1300
  66. 226 IFT$="FST"THENMN=1:HR=HR+2:BR=BR+2:GOTO185
  67. 227 IFT$="HMT"THENMN=5:HR=HR-7:BW=BW-2:BR=BR+3:GOTO185
  68. 228 GOTO185
  69. 229 PRINT"[147]GOOD MERCY DR.";N$CHR$(13)"SAVE HIM,SAVE HIM!!":GOSUB1300
  70. 230 IFT$="OX"THENMN=3:HR=HR-1:BW=BW-5:BR=BR+10:X=X-1:GOTO185
  71. 231 IFT$="PL"THENBW=BW+3:HR=HR-1:BR=BR+3:MN=3:GOTO185
  72. 233 GOTO185
  73. 235 PRINT"[147]YOU HAVE BLOOD ON YOUR TOOL SO WHILE YOUCLEAN THEM USE WHICH FLUID."
  74. 236 GOSUB1300
  75. 238 IFT$="PL"THENMN=7:HR=HR+2:BW=BW+2:GOTO185
  76. 239 IFT$="OX"THENMN=8:BR=BR+5:GOTO185
  77. 240 GOTO185
  78. 241 PRINT"[147]BREATH RATE OF PATIENT DECREASES MAYBE  YOU SHOULD THINK FAST."
  79. 242 GOSUB1300
  80. 244 IFT$="PL"THENPRINT"EEEK HIS READINGS!!":HR=HR-12:BW=BW+2:Z=Z-1:MN=3:GOTO185
  81. 245 IFT$="OX"THENMN=2:HR=HR+3:BR=BR+10:BW=BW+3:GOTO185
  82. 246 GOTO185
  83. 247 PRINT"[147]THINK YOU NEED TO STABILIZE YOUR PATIENTSEW OR FLUID 1ST.":GOSUB1300
  84. 250 IFT$="FST"THENHR=HR-9:BR=BR+11:MN=9:GOTO185
  85. 251 IFT$="LF"THENHR=HR+2:BR=BR+2:BW=BW+6:MN=3:GOTO185
  86. 252 GOTO185
  87. 253 PRINT"[147]2 DESIONS HE NEEDS QUICK FLUIDS OR ONE  MORE CUTTING!"
  88. 254 GOSUB1300
  89. 256 IFT$="PL"THENPRINT"SPLATTER OF BLOOD":BW=BW-10:BR=BR+14:MN=12:GOTO185
  90. 257 IFT$="SSS"THENMN=10:HR=HR+5:BW=BW-2:BR=BR+3:GOTO185
  91. 258 GOTO185
  92. 259 PRINT"[147]OXYGEN OR PLASMA?":GOSUB1300
  93. 262 IFT$="OX"THENMN=3:HR=HR+4:BW=BW+3:BR=BR+3:X=X-1:GOTO185
  94. 263 IFT$="PL"THENMN=15:BW=BW-3:HR=HR+5:Z=Z-1:GOTO185
  95. 264 GOTO185
  96. 265 PRINT"[147]YOUR PATIENT IS SUFFICATING AND NEEDS   PLASMA OR SEWING!":GOSUB1300
  97. 268 IFT$="PL"THENMN=13:HR=HR+4:Z=Z-1:BW=BW+6:GOTO185
  98. 269 IFT$="FST"THENPRINT"YOU SEWWED HIS LEG TO HIS HIP!":MN=2:GOTO185
  99. 270 GOTO185
  100. 271 PRINT"[147]PATIENT IS BLEEDING OUT FRESH BLOOD.    BANDAGE OR SEW?":GOSUB1300
  101. 274 IFT$="FST"THENPRINT"YOU MADE A GRAVE MISTAKE":HR=HR-5:BW=BW-6:MN=14:GOTO185
  102. 275 IFT$="LB"THENMN=2:HR=HR+2:GOTO185
  103. 276 GOTO185
  104. 277 PRINT"[147]LARGE PIECE OF BONE IS STICKING UP IN   YOUR FACE DO YOU SEPARATE?"
  105. 278 GOSUB1300
  106. 280 IFT$="OX"THENMN=9:HR=HR+3:BR=BR-2:X=X-1:GOTO185
  107. 281 IFT$="FST"THENMN=14:GOTO185
  108. 282 GOTO185
  109. 283 PRINT"[147]BREATH RATE DECREASING RAPIDLY!":BR=BR-13:GOSUB1300
  110. 286 IFT$="PL"THENHR=HR-15:BR=BR+8:BW=BW+3:Z=Z-1:MN=4:GOTO185
  111. 287 IFT$="OX"THENMN=8:BR=BR+15:X=X-1:GOTO185
  112. 288 GOTO185
  113. 289 PRINT"[147]YOUR CUTTING IS VERY UNPROFESSIONAL AND YOUR PATIENT IS BLEEDING!"
  114. 290 GOSUB1300
  115. 292 IFT$="OX"THENMN=16:HR=HR+5:BR=BR+4:X=X-1:GOTO185
  116. 293 IFT$="LB"THENMN=3:HR=HR+3:BW=BW+3:GOTO185
  117. 294 GOTO185
  118. 295 PRINT"[147]THE BONE IS ONLY CRACKED AND THE PATIENTNEEDS BEDTIME ONLY":GOSUB1300
  119. 298 IFT$="OX"THENPRINT"BEEEEEEEEEEP BEEEEEEEEEEEEEE!!":BR=BR-5:MN=10:GOTO185
  120. 299 IFT$="FST"THENMN=17:HR=HR+13:BR=BR+12:BW=BW+9:GOTO185
  121. 300 GOTO185
  122. 301 PRINT"[147]YOUR PATIENT OPENS HIS EYES AND LOOKS   TOWARD YOU AND YOUR NURSE."
  123. 302 GOSUB1300
  124. 304 IFT$="PL"THENHR=HR+9:BR=BR-2:BW=BW-2:MN=12:Z=Z-1:GOTO185
  125. 305 IFT$="LB"THENPRINT"WRAP IT UP TIGHT!":FORA=1TO1500:NEXTA:GOTO307
  126. 306 GOTO185
  127. 307 E$=" LUNG ":GOTO5000
  128. 310 FORA=1TO990:NEXTA
  129. 311 IFMN=1THEN335
  130. 312 IFMN=2THEN341
  131. 313 IFMN=3THEN347
  132. 314 IFMN=4THEN353
  133. 315 IFMN=5THEN365
  134. 316 IFMN=6THEN359
  135. 317 IFMN=7THEN389
  136. 318 IFMN=8THEN395
  137. 319 IFMN=9THEN407
  138. 320 IFMN=10THEN401
  139. 321 IFMN=11THEN383
  140. 322 IFMN=12THEN377
  141. 323 IFMN=13THEN371
  142. 324 IFMN=14THEN413
  143. 325 IFMN=15THEN419
  144. 326 IFMN=16THEN425
  145. 327 IFMN=17THEN431
  146. 328 IFMN=18THEN437
  147. 329 IFMN=19THEN443
  148. 330 IFMN=20THEN449
  149. 335 PRINT"[147]WHEEEZ WHEEEZ DOCTOR THIS MAN CAN HARDLYBREATH HELP HIM!"
  150. 336 HR=HR+3:BR=BR+3:BW=BW+3:POKEBC,11:GOSUB1300
  151. 337 IFT$="LF"THENMN=2:HR=HR+3:BW=BW+3:Y=Y-1:GOTO310
  152. 338 IFT$="OX"THENMN=3:HR=HR+2:BW=BW+3:BR=BR+1:X=X-1:GOTO310
  153. 339 GOTO310
  154. 341 PRINT"[147]THIS IS A DELICATE AREA SO WAIT WITH    PLASMA OR BEGIN CUTTING"
  155. 342 POKEBC,11:GOSUB1300:IFT$="PL"THENMN=6:HR=HR+2:BR=BR+4:BW=BW+4:Z=Z-1:GOTO310
  156. 343 IFT$="LSS"THENBR=BR+1:HR=HR+3:BW=BW-2:MN=4:GOTO310
  157. 344 GOTO310
  158. 347 PRINT"[147]YOUR PATIENT IS COUGHING UP BLOOD AND   HIS OPERATION CANNOT STOP!"
  159. 348 POKEBC,11:GOSUB1300
  160. 349 IFT$="LSS"THENMN=12:HR=HR-1:BR=BR+2:BW=BW+1:GOTO310
  161. 350 IFT$="PL"THENMN=13:HR=HR+3:BR=BR+2:BW=BW+1:Z=Z-1:GOTO310
  162. 351 GOTO310
  163. 353 PRINT"[147]BLOOD ON YOUR HANDS AND YOUR INSIDE  THEBODY SEPARATE THE LUNG WALL."
  164. 354 POKEBC,11:GOSUB1300
  165. 355 IFT$="PL"THENMN=5:Z=Z-1:BR=BR+4:HR=HR+3:BW=BW+7:GOTO310
  166. 356 IFT$="LST"THENMN=3:BR=BR-1:HR=HR-5:BW=BW+4:GOTO310
  167. 357 GOTO310
  168. 359 PRINT"[147]DON'T PASS YOUR CHANCE TO CUT THOUGH THEPATIENT IS PASSED OUT COLD."
  169. 360 POKEBC,11:GOSUB1300
  170. 361 IFT$="OX"THENX=X-1:MN=3:BW=BW+5:BR=BR+3:HR=HR+4:GOTO310
  171. 362 IFT$="LSS"THEN:MN=7:BW=BW-3:BR=BR-3:HR=HR+4:GOTO310
  172. 363 GOTO310
  173. 365 PRINT"[147]PATIENT HAS REGAINED FEEL,ANESTHESIA IS ENTERING,SO PREPARE PATIENT?"
  174. 366 POKEBC,11:GOSUB1300
  175. 367 IFT$="OX"THENX=X-1:MN=12:BR=BR+10:BW=BW+7:HR=HR-7:GOTO310
  176. 368 IFT$="SST"THENBR=BR+10:BW=BW+7:HR=HR-7:MN=8:GOTO310
  177. 369 GOTO310
  178. 371 BR=21:PRINT"[147]THE PATIENT NEEDS YOUR HANDY WORK QUICK OR ELSE HE'LL DIE!!"
  179. 372 POKEBC,11:GOSUB1300
  180. 373 IFT$="OX"THENBR=BR+18:X=X-1:MN=11:GOTO310
  181. 374 IFT$="LSS"THENBR=BR+12:HR=HR+4:BW=BW+8:MN=10:GOTO310
  182. 375 GOTO310
  183. 377 PRINT"[147]..LOOK AT THAT CUT YOU JUST MADE AGAIN!!YOU MIGHT WISH TO TRY OVER."
  184. 378 POKEBC,11:GOSUB1300
  185. 379 IFT$="SB"THENMN=2:BW=BW+3:BR=BR-1:HR=HR+4:GOTO310
  186. 380 IFT$="SST"THENMN=11:BW=BW+4:BR=BR+2:HR=HR+4:GOTO310
  187. 381 GOTO310
  188. 383 PRINT"[147]PATIENT IS BEGINNING TO IMPROVE BUT FOR ONLY A MINUTE!!"
  189. 384 POKEBC,12:GOSUB1300
  190. 385 IFT$="OX"THENMN=6:X=X-1:GOTO310
  191. 386 IFT$="SST"THENMN=12:GOTO310
  192. 387 GOTO310
  193. 389 PRINT"[147]LIFE FLUID OR PLASMA DOC.!"
  194. 390 POKEBC,12:GOSUB1300
  195. 391 IFT$="PL"THENZ=Z-1:MN=9:BW=BW+3:BR=BR+3:HR=HR+3:GOTO310
  196. 392 IFT$="LF"THENY=Y-1:MN=14:BW=BW+4:BR=BR+4:HR=HR+4:GOTO310
  197. 393 GOTO310
  198. 395 PRINT"[147]YOU MUST CUT SOME MORE BUT IF YOUR      AFFRAID STABILIZE."
  199. 396 POKEBC,12:GOSUB1300
  200. 397 IFT$="LF"THENY=Y-1:MN=7:BW=BW+3:HR=HR+3:BR=BR+3:GOTO310
  201. 398 IFT$="LSS"THENMN=9:BW=BW-2:BR=BR-2:HR=HR-1:GOTO310
  202. 400 GOTO310
  203. 401 PRINT"[147]CHECK PATIENTS READING AND APPLY FLUIDS AND WAIT FOR NEW READINGS."
  204. 402 POKEBC,12:GOSUB1300
  205. 403 IFT$="LF"THENMN=14:Y=Y-1:BW=BW+4:HR=HR+4:BR=BR+4:GOTO310
  206. 404 IFT$="OX"THENMN=5:X=X-1:BW=BW+7:HR=HR+4:BR=BR+7:GOTO310
  207. 405 GOTO310
  208. 407 PRINT"[147]LOOKING AT PATIENTS LUNGS IT LOOKS O.K. SO FAR SO CONTINUE BY TOOL?"
  209. 408 POKEBC,12:GOSUB1300
  210. 409 IFT$="LST"THENMN=10:HR=HR-5:BR=BR+4:BW=BW-1:GOTO310
  211. 410 IFT$="LF"THENMN=18:Y=Y-1:HR=HR+1:BR=BR+1:BW=BW-1:GOTO310
  212. 411 GOTO310
  213. 413 PRINT"[147]YOU'VE RIPPED PART OF HIS STOMACH OPEN  AND IT LOOKS BAD FOR YOU!!"
  214. 414 POKEBC,12:GOSUB1300
  215. 415 IFT$="SST"THENMN=15:GOTO310
  216. 416 IFT$="OX"THENMN=17:GOTO310
  217. 417 GOTO310
  218. 419 PRINT"[147]THAT LAST MOVE WAS INTERESTING SO NOW   YOU BETTER APPLY A FLUID."
  219. 420 POKEBC,15:GOSUB1300
  220. 421 IFT$="PL"THENZ=Z-1:HR=HR+3:BR=BR+3:BW=BW+6:MN=16:GOTO310
  221. 422 IFT$="OX"THENX=X-1:MN=11:GOTO310
  222. 423 GOTO310
  223. 425 PRINT"[147]PATIENT LOOKS O.K. MUST END SURGERY AND EXAMINE FINDINGS."
  224. 426 POKEBC,15:GOSUB1300
  225. 427 IFT$="OX"THENMN=14:X=X-1:GOTO310
  226. 428 IFT$="SST"THENMN=20:HR=HR+4:BR=BR+5:BW=BW+6:GOTO310
  227. 429 GOTO310
  228. 431 PRINT"[147]ONE UNIT OF OXYGEN OR 2 UNITS OF PLASMA WHICH IS BETTER HERE?."
  229. 432 POKEBC,15:GOSUB1300
  230. 433 IFT$="PL"THENMN=5:Z=Z-2:BW=BW+9:HR=HR+4:BR=BR+10:GOTO310
  231. 434 IFT$="OX"THENMN=12:X=X-1:BW=BW+3:HR=HR+4:BR=BR+6:GOTO310
  232. 435 GOTO310
  233. 437 PRINT"[147]BEGIN TO SEPARATE THE LUNG OR SOME MORE OXYGEN WHILE YOU WAIT?"
  234. 438 POKEBC,15:GOSUB1300
  235. 439 IFT$="OX"THENX=X-1:MN=19:BR=BR+6:GOTO310
  236. 440 IFT$="LST"THENMN=5:BR=BR-10:GOTO310
  237. 441 GOTO310
  238. 443 PRINT"[147]ONE UNIT OF PLASMA OR 2 UNITS OF LIFE   FLUIDS WHICH DOES THE TRICK?"
  239. 444 POKEBC,15:GOSUB1300
  240. 445 IFT$="LF"THENY=Y-2:MN=8:BW=BW+7:BR=BR+8:GOTO310
  241. 446 IFT$="PL"THENZ=Z-1:MN=15:BW=BW+6:HR=HR-1:BR=BR+3:GOTO310
  242. 447 GOTO310
  243. 449 PRINT"[147]FINDINGS SHOW AN ALLERGY AND A VERY VERYHEAVY SMOKER!..END SURGERY."
  244. 450 POKEBC,15:GOSUB1300
  245. 451 IFT$="SB"THENPRINT"GOOD JOB EXIT.":FORA=1TO990:NEXTA:GOTO5000
  246. 452 GOTO310
  247. 470 FORA=1TO990:NEXTA
  248. 471 IFMN=1THEN495
  249. 472 IFMN=2THEN501
  250. 473 IFMN=3THEN507
  251. 474 IFMN=4THEN513
  252. 475 IFMN=5THEN519
  253. 476 IFMN=6THEN525
  254. 477 IFMN=7THEN531
  255. 478 IFMN=8THEN537
  256. 479 IFMN=9THEN543
  257. 480 IFMN=10THEN549
  258. 481 IFMN=11THEN555
  259. 482 IFMN=12THEN561
  260. 483 IFMN=13THEN567
  261. 484 IFMN=14THEN573
  262. 485 IFMN=15THEN579
  263. 486 IFMN=16THEN585
  264. 487 IFMN=17THEN591
  265. 488 IFMN=18THEN597
  266. 489 IFMN=19THEN603
  267. 490 IFMN=20THEN609
  268. 491 IFMN=21THEN615
  269. 495 PRINT"[147]THUMP..THUMP...HIS HEART IS IRREGULARLY BEATING,FLUIDS ARE NEEDED."
  270. 496 GOSUB1300
  271. 497 IFT$="OX"THENX=X-1:MN=2:BR=BR+3:BW=BW+4:GOTO470
  272. 498 IFT$="PL"THENZ=Z-1:MN=7:BR=BR+2:BW=BW+5:GOTO470
  273. 499 IFT$="LF"THENY=Y-1:MN=15:BR=BR+3:BW=BW+3:GOTO470
  274. 500 GOTO470
  275. 501 PRINT"[147]YOUR THE DOCTOR WHAT IS IT IN A HEART   OPERATION YOU DO NEXT?"
  276. 502 GOSUB1300
  277. 503 IFT$="LSS"THENMN=3:BR=BR-1:BW=BW+3:GOTO470
  278. 504 IFT$="LF"THENMN=4:HR=HR+4:BR=BR+3:BW=BW+3:Y=Y-1:GOTO470
  279. 505 GOTO470
  280. 507 PRINT"[147]WHOOPS YOU MADE AN ERROR YOU MUST SEE TOHIM WITH OXYGEN OR PLASMA."
  281. 508 GOSUB1300
  282. 509 IFT$="OX"THENX=X-1:MN=13:BR=BR+4:BW=BW+5:GOTO470
  283. 510 IFT$="PL"THENZ=Z-1:MN=7:HR=HR+3:GOTO470
  284. 511 GOTO470
  285. 513 PRINT"[147]MORE OF SOME FLUIDS WOULD HELP TO SMOOTHOUT HIS HEART RATE!"
  286. 514 GOSUB1300
  287. 515 IFT$="PL"THENZ=Z-1:MN=6:HR=HR+3:BR=BR+4:BW=BW-1:GOTO470
  288. 516 IFT$="OX"THENX=X-1:MN=5:HR=HR+3:BR=BR+6:BW=BW+2:GOTO470
  289. 517 GOTO470
  290. 519 PRINT"[147]THE USE OF THE PROPER TOOL WILL GET YOU FAR AHEAD IN THIS CRISIS."
  291. 520 GOSUB1300
  292. 521 IFT$="LSS"THENMN=3:HR=HR+4:BR=BR+5:BW=BW+6:GOTO470
  293. 522 IFT$="SST"THENMN=1:GOTO470
  294. 523 GOTO470
  295. 525 PRINT"[147]THERE IS A LARGE CUT ON HIS ABDOMEN DID YOU DO THAT? FIX IT UP!"
  296. 526 GOSUB1300
  297. 527 IFT$="LB"THENMN=3:GOTO470
  298. 528 IFT$="FST"THENMN=1:GOTO470
  299. 529 GOTO470
  300. 531 PRINT"[147]YOUR PATIENT IS HAVING A BAD REACTION TOTHAT FLUID STABILIZE MAYBE?"
  301. 532 GOSUB1300
  302. 533 IFT$="LSS"THENMN=8:HR=HR-2:BR=BR-3:BW=BW-2:GOTO470
  303. 534 IFT$="LF"THENY=Y-1:MN=6:GOTO470
  304. 535 GOTO470
  305. 537 PRINT"[147]LIFE FLUID OR PLASMA?"
  306. 538 GOSUB1300
  307. 539 IFT$="PL"THENZ=Z-1:MN=9:HR=HR+5:GOTO470
  308. 540 IFT$="LF"THENY=Y-1:MN=10:HR=HR+3:BR=BR+3:BW=BW+3:GOTO470
  309. 541 GOTO470
  310. 543 PRINT"[147]PAUSE FOR CONDITION STATUS CHECK HIT    FLUID FOR SPECIAL IMPROVMENT"
  311. 544 GOSUB1300
  312. 545 IFT$="PL"THENZ=Z-1:HR=HR+10:MN=12:GOTO470
  313. 546 IFT$="OX"THENX=X-1:BR=BR+10:MN=11:GOTO470
  314. 547 IFT$="LF"THENY=Y-1:BW=BW+10:MN=12:GOTO470
  315. 548 GOTO470
  316. 549 PRINT"[147]WITH AN OPEN CHEST CAVITY YOU MUST SEE  DEEPER DOWN TO THE HEART."
  317. 550 GOSUB1300
  318. 551 IFT$="PL"THENZ=Z-1:MN=17:GOTO470
  319. 552 IFT$="SST"THENMN=12:HR=HR+3:BR=BR+4:BW=BW+5:GOTO470
  320. 553 GOTO470
  321. 555 PRINT"[147]YOUR PATIENT COUGHS AND COUGHS AND SOME GUTS FALL INTO YOUR CUT PATH!"
  322. 556 GOSUB1300
  323. 557 IFT$="SST"THENMN=14:BW=BW+5:GOTO470
  324. 558 IFT$="OX"THENX=X-1:MN=5:BR=BR+4:GOTO470
  325. 559 GOTO470
  326. 561 PRINT"[147]YOU'VE SLICED OPEN HIS LUNG AND BLOOD   RUSHES IN AND HE COUGHS!"
  327. 562 GOSUB1300
  328. 563 IFT$="SST"THENMN=6:BW=BW-2:BR=BR-3:HR=HR-1:GOTO470
  329. 564 IFT$="LB"THENHR=HR+4:BR=BR+5:BW=BW+7:PRINT"FINE JOB!!":MN=8:GOTO470
  330. 565 GOTO470
  331. 567 PRINT"[147]SMALL SEPARATING TOOL OR PLASMA?"
  332. 568 GOSUB1300
  333. 569 IFT$="PL"THENZ=Z-1:MN=5:GOTO470
  334. 570 IFT$="SST"THENPRINT"THERE IS THE HEART MUSCLE!":MN=17:GOTO470
  335. 571 GOTO470
  336. 573 PRINT"[147]DO YOU THINK THE CUT ABOVE HIS RIGHT EYEMATTERS NOW?"
  337. 574 GOSUB1300
  338. 575 IFT$="PL"THENZ=Z-1:BR=BR+4:BW=BW+6:HR=HR+5:MN=16:GOTO470
  339. 576 IFT$="LB"THENPRINT"WHAT A NICE DOC. YOU ARE.":MN=15:GOTO470
  340. 577 GOTO470
  341. 579 BR=BR-5:PRINT"[147]LIFE FLUIDS GIVEN EARLIER SHOW UP AS AN ALLERGIC REACTION!!"
  342. 580 GOSUB1300
  343. 581 IFT$="PL"THENZ=Z-1:MN=17:HR=HR+2:BR=BR+3:BW=BW+4:GOTO470
  344. 582 IFT$="OX"THENBR=BR+4:X=X-1:MN=7:GOTO470
  345. 583 GOTO470
  346. 585 PRINT"[147]YOU ARE FINDING YOUR PATIENT SIMPLY VERYNERVOUS AND HE NEEDS?"
  347. 586 GOSUB1300
  348. 587 IFT$="PL"THENMN=19:Z=Z-1:GOTO470
  349. 588 IFT$="LF"THENPRINT"ALLERGIC REACTION TAKES PLACE!":Y=Y-1:BR=BR-4:MN=18
  350. 589 GOTO470
  351. 591 PRINT"[147]NOW FOR THE SCALPEL OR YOU CAN GIVE HIM LIFE FLUIDS????!!!!"
  352. 592 GOSUB1300
  353. 593 IFT$="LF"THENY=Y-1:MN=6:GOTO470
  354. 594 IFT$="LSS"THENHR=HR+3:BR=BR-4:BW=BW-4:MN=12:GOTO470
  355. 595 GOTO470
  356. 597 PRINT"[147]FOR THE NEXT FEW MINUTES YOU'LL SUCCEED IF YOU GIVE THE PROPER FLUID."
  357. 598 GOSUB1300
  358. 599 IFT$="OX"THENX=X-1:MN=19:GOTO470
  359. 600 GOTO470
  360. 603 PRINT"[147]YOUR BEGINNING PROCEEDURE TO END THIS   SURGERY FOR GOOD WITH FLUID."
  361. 604 GOSUB1300
  362. 605 IFT$="LF"THENY=Y-1:MN=20:HR=HR+3:BR=BR+3:BW=BW+3:GOTO470
  363. 606 GOTO470
  364. 609 PRINT"[147]ANOTHER ALLERGIC REACTION WITH A FLUID? CONTINUE PROCEDURE!"
  365. 610 GOSUB1300
  366. 611 IFT$="FST"THENPRINT"YES,PATIENT IS GETTING BETTER!":HR=HR+5:MN=21:GOTO470
  367. 612 IFT$="OX"THENPRINT"SLICE....!":X=X-1:MN=6:GOTO470
  368. 613 GOTO470
  369. 615 PRINT"[147]THE PATIENT CALMS DOWN AND SLEEPS.......QUIETLY YOU FLUID HIM WITH?"
  370. 616 GOSUB1300
  371. 617 IFT$="OX"THENPRINT"Z..ZZZZ.ZZZ.ZZZ.ZZ!":X=X-1:FORA=1TO900:NEXTA:GOTO5000
  372. 618 IFT$="PL"THENPRINT"THAT EXCITED HIM OH NO!!":MN=16:GOTO470
  373. 619 GOTO470
  374. 900 IFE=1THENGOTO185
  375. 901 IFE=2THENGOTO310
  376. 902 IFE=3THENGOTO470
  377. 1000 POKE53280,10:PRINT"[147][219][219][219]SUPPLY SHOP[219][219][219]":FORA=1TO999:NEXTA
  378. 1010 PRINT"[159]WHEN IN THE SUPPLY SHOP YOU HAVE CREDIT."
  379. 1011 PRINT"IF YOU NEED IMPORTANT TOOLS LIKE OXYGEN,LIFE FLUID OR PLASMA AND YOU";
  380. 1012 PRINT" HAVE VERY  LITTLE CASH YOU CAN PURCHASE UP TO 10   UNITS OF ANY OF";
  381. 1013 PRINT" THESE AND YOUR CASH WILLSHOW A NEGATIVE AMOUNT AND THIS IS ";
  382. 1014 PRINT"YOUR CREDIT. AND THIS CREDIT WILL BE PAID    AFTER EACH OPERATION. "
  383. 1015 PRINT"              [158]HIT ANY KEY"
  384. 1016 GETB$:IFB$><""THENGOTO1100
  385. 1017 GOTO1016
  386. 1100 PRINT"[147]HERE ARE ALL SUPPLIES USED IN ANY MINOR OPERATION."
  387. 1101 PRINT"TOOLS ALREADY OWNED ARE COLORED IN RED."
  388. 1102 PRINT"[159]TO PURCHASE TOOLS ASK FOR THEM BY NUMBER"
  389. 1103 PRINT"CASH OWNED:$";CH"FOR[159]";E$"SURGERY."
  390. 1104 IFT(1)=1THENPRINT"[145]"
  391. 1105 PRINT"1. LG. SURGERY SCALPEL 50"
  392. 1106 IFT(2)=1THENPRINT"[145]"
  393. 1107 PRINT"2. SM. SURGERY SCALPEL 35"
  394. 1108 IFT(3)=1THENPRINT"[145]"
  395. 1109 PRINT"3. PLASMA 6 PER UNIT"
  396. 1110 IFT(4)=1THENPRINT"[145]"
  397. 1111 PRINT"4. BANDAGES LG. 25"
  398. 1112 IFT(5)=1THENPRINT"[145]"
  399. 1113 PRINT"5. BANDAGES SM. 15"
  400. 1114 IFT(6)=1THENPRINT"[145]"
  401. 1115 PRINT"6. LIFE FLUIDS 9 PER UNIT"
  402. 1116 IFT(7)=1THENPRINT"[145]"
  403. 1117 PRINT"7. MENDING TOOL HIGH QUALITY 75"
  404. 1118 IFT(8)=1THENPRINT"[145]"
  405. 1119 PRINT"8. MENDING TOOL LOW QUALITY 35"
  406. 1120 IFT(9)=1THENPRINT"[145]"
  407. 1121 PRINT"9. SEWING TOOL FAST 55"
  408. 1122 IFT(10)=1THENPRINT"[145]"
  409. 1123 PRINT"10. SEWING TOOL SLOW 35"
  410. 1124 IFT(11)=1THENPRINT"[145]"
  411. 1125 PRINT"11. OXYGEN 3 PER UNIT"
  412. 1126 IFT(12)=1THENPRINT"[145]"
  413. 1127 PRINT"12. SEPARATING TOOL LG. 85"
  414. 1128 IFT(13)=1THENPRINT"[145]"
  415. 1129 PRINT"13. SEPARATING TOOL SM. 60"
  416. 1130 PRINT"[159]((ENTER ZERO TO END))"
  417. 1131 INPUT"TOOL NUMBER YOU WISH TO PURCHASE ";C:IFC=0THENGOTO45
  418. 1132 IFCH<3THENPRINT"[158]**END YOUR PURCHASES NOW!!!":FORA=1TO1500:NEXT:GOTO1100
  419. 1133 GOSUB1176:IFC>13THENGOTO1100
  420. 1134 IFT(C)=1THENGOSUB1175:GOTO1100
  421. 1135 IFC=1THENCH=CH-50:T(1)=1
  422. 1136 IFC=2THENCH=CH-35:T(2)=1
  423. 1137 IFC=3THENT(3)=1:GOSUB1170:FORA=1TO1000:NEXTA
  424. 1138 IFC=4THENCH=CH-25:T(4)=1
  425. 1139 IFC=5THENCH=CH-15:T(5)=1
  426. 1140 IFC=6THENT(6)=1:GOSUB1160:FORA=1TO1000:NEXTA
  427. 1141 IFC=7THENCH=CH-75:T(7)=1
  428. 1142 IFC=8THENCH=CH-35:T(8)=1
  429. 1143 IFC=9THENCH=CH-55:T(9)=1
  430. 1144 IFC=10THENCH=CH-40:T(10)=1
  431. 1145 IFC=11THENT(11)=1:GOSUB1150:FORA=1TO1000:NEXTA
  432. 1146 IFC=12THENCH=CH-85:T(12)=1
  433. 1147 IFC=13THENCH=CH-60:T(13)=1
  434. 1148 IFCH<3THENPRINT"[158]FUNDS LOW!":FORA=1TO1500:NEXTA:GOTO1100
  435. 1149 GOTO1100
  436. 1150 INPUT"UNITS OF THIS SUPPLY";X:IFX>10THENPRINT"[158]LIMITED":T(C)=0:RETURN
  437. 1152 CH=CH-X*3
  438. 1153 RETURN
  439. 1160 INPUT"UNITS OF THIS SUPPLY";Y:IFY>10THENPRINT"[158]LIMITED":T(C)=0:RETURN
  440. 1162 CH=CH-Y*9
  441. 1163 RETURN
  442. 1170 INPUT"UNITS OF THIS SUPPLY";Z:IFZ>10THENPRINT"[158]LIMITED":T(C)=0:RETURN
  443. 1172 CH=CH-Z*6
  444. 1173 RETURN
  445. 1175 PRINT"[159]TOOL ALREADY OWNED!":FORA=1TO1500:NEXTA:RETURN
  446. 1176 IFCH<85ANDC=12THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  447. 1177 IFCH<75ANDC=7THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  448. 1178 IFCH<60ANDC=13THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  449. 1179 IFCH<55ANDC=9THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  450. 1180 IFCH<50ANDC=1THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  451. 1181 IFCH<40ANDC=10THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  452. 1182 IFCH<35ANDC=8THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  453. 1183 IFCH<25ANDC=4THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  454. 1184 IFCH<15ANDC=5THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  455. 1185 IFCH<35ANDC=2THENPRINT"[158]FUNDS TOO LOW!":FORA=1TO1500:NEXTA:GOTO1100
  456. 1186 RETURN
  457. 1200 POKE53280,0:IFT(1)=1THENPRINT"[147]1.LARGE SURGERY SCALPEL------LSS":GOTO1202
  458. 1201 POKE53280,0:PRINT"[147]1.LARGE SURGERY SCALPEL------LSS"
  459. 1202 IFT(2)=1THENPRINT"2.SMALL SURGERY SCALPEL------SSS":GOTO1204
  460. 1203 PRINT"2.SMALL SURGERY SCALPEL------SSS"
  461. 1204 IFT(3)=1THENPRINT"3.PLASMA---------------------PL":GOTO1206
  462. 1205 PRINT"3.PLASMA---------------------PL"
  463. 1206 IFT(4)=1THENPRINT"4.LARGE BANDAGE--------------LB":GOTO1208
  464. 1207 PRINT"4.LARGE BANDAGE--------------LB"
  465. 1208 IFT(5)=1THENPRINT"5.SMALL BANDAGE--------------SB":GOTO1210
  466. 1209 PRINT"5.SMALL BANDAGE--------------SB"
  467. 1210 IFT(6)=1THENPRINT"6.LIFE FLUIDS----------------LF":GOTO1212
  468. 1211 PRINT"6.LIFE FLUIDS----------------LF"
  469. 1212 IFT(7)=1THENPRINT"7.HIGH QUALITY MENDING TOOL--HMT":GOTO1214
  470. 1213 PRINT"7.HIGH QUALITY MENDING TOOL--HMT"
  471. 1214 IFT(8)=1THENPRINT"8.LOW QUALITY MENDING TOOL---LMT":GOTO1216
  472. 1215 PRINT"8.LOW QUALITY MENDING TOOL---LMT"
  473. 1216 IFT(9)=1THENPRINT"9.FAST SEWING TOOL-----------FST":GOTO1218
  474. 1217 PRINT"9.FAST SEWING TOOL-----------FST"
  475. 1218 IFT(10)=1THENPRINT"10.SLOW SEWING TOOL-----------SST":GOTO1220
  476. 1219 PRINT"10.SLOW SEWING TOOL-----------SST"
  477. 1220 IFT(11)=1THENPRINT"11.OXYGEN---------------------OX":GOTO1222
  478. 1221 PRINT"11.OXYGEN---------------------OX":GOTO1222
  479. 1222 IFT(12)=1THENPRINT"12.LARGE SEPARATING TOOL------LST":GOTO1224
  480. 1223 PRINT"12.LARGE SEPARATING TOOL------LST"
  481. 1224 IFT(13)=1THENPRINT"13.SMALL SEPARATING TOOL------SST":GOTO1226
  482. 1225 PRINT"13.SMALL SEPARATING TOOL------SST"
  483. 1226 PRINT"              HIT ANY KEY"
  484. 1227 GETB$:IFB$><""THENPOKE53280,1:PRINT"[147]":RETURN
  485. 1228 GOTO1227
  486. 1300 PRINT"[153]HEART";HR"%[153] BREATH";BR"%[153] BRAIN WAVE";BW"%"
  487. 1302 PRINT"[153]FLUIDS: OX:";X"[153] LF:";Y"[153] PL:";Z
  488. 1303 T$="":INPUT"ENTER TOOL CHOICE H=TOOL ABBREV. T=TRADE";T$:GOTO1400
  489. 1304 IFBN>2THENGOTO900
  490. 1305 BN=0:IFT$="T"THENGOTO1500
  491. 1306 IFT$="H"THENGOSUB1200:GOTO47
  492. 1307 IFHR<9THENGOTO10000
  493. 1308 IFBW<9THENGOTO10000
  494. 1309 IFBR<9THENGOTO10000
  495. 1321 IFX<1THENPRINT"YOU NEED OXYGEN":FORA=1TO1000:NEXT:T(11)=0:GOTO1500
  496. 1322 IFY<1THENPRINT"YOU NEED LIFE FLUID":FORA=1TO1000:NEXT:T(6)=0:GOTO1500
  497. 1323 IFZ<1THENPRINT"YOU NEED PLASMA":FORA=1TO1000:NEXT:T(3)=0:GOTO1500
  498. 1324 HR=HR-2:BW=BW-1:BR=BR-3:RETURN
  499. 1400 IFE=1THENGOTO1450
  500. 1401 IFE=2THENGOTO1460
  501. 1402 IFE=3THENGOTO1470
  502. 1450 FORH=1TO8:IFT$=TL$(H)ANDT(TN(H))=0THENGOTO1480
  503. 1451 NEXTH:GOTO1481
  504. 1460 FORH=9TO15:IFT$=TL$(H)ANDT(TN(H))=0THENGOTO1480
  505. 1461 NEXTH:GOTO1481
  506. 1470 FORH=16TO22:IFT$=TL$(H)ANDT(TN(H))=0THENGOTO1480
  507. 1471 NEXTH:GOTO1481
  508. 1480 BN=5:PRINT"[158]YOU NEED TO TRADE FOR THIS TOOL!":T$="":GOTO1488
  509. 1481 BN=0:GOTO1304
  510. 1485 DATA2,"SSS",3,"PL",4,"LB",6,"LF",7,"HMT",9,"FST",11,"OX",12,"LST"
  511. 1486 DATA1,"LSS",11,"OX",3,"PL",6,"LF",5,"SB",12,"LST",10,"SST"
  512. 1487 DATA1,"LSS",11,"OX",3,"PL",6,"LF",4,"LB",13,"SST",9,"FST"
  513. 1488 FORA=1TO300:NEXT:RETURN
  514. 1500 FORA=1TO500:NEXTA
  515. 1501 PRINT"[147]*******HERE IS THE TRADING BOARD********                         ";
  516. 1505 PRINT"[159]               ENTER TOOL TO BE TRADED BY ITS NUMBER"
  517. 1506 PRINT"YOU CAN TRADE IN OXYGEN & PLASMA ALSO"
  518. 1507 PRINT"[158]ENTER (14) TO LIST RED[158] CODED OWNED TOOLSAND TOOL NUMBERS."
  519. 1508 PRINT"ENTER ZERO TO END TRADING."
  520. 1509 T(0)=1:INPUT"TRADE IN TOOL NUMBER # FOR REFUND";C
  521. 1510 IFC=14THENGOSUB1200:GOTO1500
  522. 1516 IFC>14THENGOTO1500
  523. 1517 IFT(C)=0THENPRINT"YOU DO NOT OWN THIS TOOL!":FORA=1TO1100:NEXTA:GOTO1500
  524. 1518 IFC=1THENT(C)=0:CH=CH+50:C$="LSS"
  525. 1519 IFC=2THENT(C)=0:CH=CH+35:C$="SSS"
  526. 1520 IFC=3THENT(C)=0:CH=CH+Z*6:Z=0:C$="PL"
  527. 1521 IFC=4THENT(C)=0:CH=CH+25:C$="LB"
  528. 1522 IFC=5THENT(C)=0:CH=CH+15:C$="SB"
  529. 1523 IFC=7THENT(C)=0:CH=CH+75:C$="HMT"
  530. 1524 IFC=8THENT(C)=0:CH=CH+35:C$="LMT"
  531. 1525 IFC=9THENT(C)=0:CH=CH+55:C$="FST"
  532. 1526 IFC=10THENT(C)=0:CH=CH+40:C$="SST"
  533. 1527 IFC=11THENT(C)=0:CH=CH+X*3:X=0:C$="OX"
  534. 1528 IFC=12THENT(C)=0:CH=CH+85:C$="LST"
  535. 1529 IFC=13THENT(C)=0:CH=CH+60:C$="SST"
  536. 1530 IFC=6THENT(C)=0:CH=CH+Y*9:Y=0:C$="LF"
  537. 1531 IFC=0THENGOTO1534
  538. 1533 PRINT"[158]TRADE IN ON TOOL CODED:"C$:FORA=1TO900:NEXTA:GOTO1500
  539. 1534 INPUT"[147]GO TO THE SUPPLY SHOP Y=YES N=NO";B$
  540. 1535 IFB$="N"ANDE=1THENGOTO185
  541. 1536 IFB$="N"ANDE=2THENGOTO310
  542. 1537 IFB$="N"ANDE=3THENGOTO470
  543. 1540 IFB$="Y"THENGOTO1000
  544. 5000 IFE=1THENGOTO5100
  545. 5001 IFE=2THENGOTO5200
  546. 5002 IFE=3THENGOTO5300
  547. 5100 PRINT"[147][144]CONGRATULATIONS DR.";N$""
  548. 5101 PRINT"YOU HAVE BEEN A VERY PROFESSIONAL DOCTORAND HAVE BENEFITED FROM THIS"
  549. 5102 PRINT"OPERATION AND THE PERSON YOU SAVED IS   GRATEFUL. FOR YOU HAVE FIXED"
  550. 5103 PRINT"THE AILMENT HE HAS HAD FOR SOMEWHAT OF  A VERY LONG TIME AND HE WILL"
  551. 5104 PRINT"PAY YOU THREE TIMES WHAT HIS BRAIN CAN  FIGURE AND WITH THE TRADE"
  552. 5105 PRINT"IN OF YOUR TOOLS FOR HALF PRICE YOU WILLHAVE MORE CASH TO FINISH"
  553. 5106 PRINT"YOUR NEXT OPERATION AND YOUR PATIENT    ONCE AGAIN THANKS YOU!"
  554. 5107 PRINT"       _BACK TO THE SUPPLY SHOP.":E$=" LUNG "
  555. 5108 FORA=55296TO56056:POKEA,1:FORB=1TO15:NEXTB:NEXTA
  556. 5109 FORA=55936TO55296STEP-1:POKEA,0:NEXTA
  557. 5110 FORA=1TO23:PRINT"":NEXTA
  558. 5111 GOSUB5400:FORA=0TO13:T(A)=0:NEXTA
  559. 5112 CH=CH+(BW*3):E=E+1:MN=1:BW=60:HR=90:BR=50:GOTO1000
  560. 5200 PRINT"[147][144]CONGRATULATIONS DR.";N$""
  561. 5201 PRINT"YOU ARE GETTING MUCH BETTER AT THIS GAMEAND YOU HAVE CURED TWO FOLK"
  562. 5202 PRINT"AND IF YOU CAN KEEP IT UP THROUGH YOUR  NEXT SURGERY I HERE IT DOES"
  563. 5203 PRINT"PAY VERY GOOD AND MAYBE THIS ADVENTURE  WILL COME TO A CLOSE WITH"
  564. 5204 PRINT"YOU ON TOP.  THE LAST PERSON YOU HELPED IS PAYING YOU 4 TIMES AS"
  565. 5205 PRINT"MUCH AS HE VALUES HIS BREATHING AND YOU WILL HAVE MORE CASH FOR"
  566. 5206 PRINT"YOUR NEXT OPERATION AND YOUR PATIENT    ONCE AGAIN THANKS YOU!"
  567. 5207 PRINT"       _BACK TO THE SUPPLY SHOP.":E$=" HEART "
  568. 5208 FORA=55296TO56056:POKEA,15:FORB=1TO15:NEXTB:NEXTA
  569. 5209 FORA=55936TO55296STEP-1:POKEA,0:NEXTA
  570. 5210 FORA=1TO23:PRINT"":NEXTA
  571. 5211 GOSUB5400:FORA=0TO13:T(A)=0:NEXTA
  572. 5212 CH=CH+(BR*4):E=E+1:MN=1:BW=50:BR=70:HR=60:GOTO1000
  573. 5300 GOSUB5400:FORA=0TO13:T(A)=0:NEXTA
  574. 5301 CH=CH+(BR+BW+HR)*10
  575. 5305 PRINT"[147]":FORA=1TO40:POKE53280,INT(RND(1)*15)+1:POKE53281,INT(RND(1)*15)+1
  576. 5306 PRINT"[158]CONGRATULATIONS[157][157][157][157][157][157]SUCCESSFUL DOCTOR";:NEXTA
  577. 5308 POKE53280,0:POKE53281,0
  578. 5310 PRINT"[147][144]CONGRATULATIONS DR.";N$""
  579. 5311 PRINT"YOU ARE THE BEST DARN DOCTOR IN TOWN ANDYOUR NAME IS SPREADING !"
  580. 5312 PRINT"AND IF YOU CAN KEEP IT UP THROUGH YOUR  LIFE YOU'LL BE RICH..RICH!!"
  581. 5313 PRINT"YOU CAN NOW ENTER ANY HOSPITAL WITH THE BEST OF ATTITUDES AND HELP"
  582. 5314 PRINT"ALL YOU TOUCH AND NOT TO MENTION THE    MONEY PEOPLE ARE PAYING NOW."
  583. 5315 PRINT"THE LAST OPERATION YOU CHOSE TO DO HAS  PAID YOU $";CH".00!"
  584. 5316 PRINT"AND WE HOPE YOU'VE HAD AND EXPERIENCE OFA LIFETIME ! THANK YOU!"
  585. 5317 FORA=55296TO56056:POKEA,7:FORB=1TO20:NEXTB:NEXTA
  586. 5318 FORA=55936TO55296STEP-1:POKEA,0:NEXTA
  587. 5320 GOTO20000
  588. 5400 IFT(1)=1THENCH=CH+25
  589. 5401 IFT(2)=1THENCH=CH+17
  590. 5402 IFT(3)=1THENCH=CH+Z*6
  591. 5403 IFT(4)=1THENCH=CH+12
  592. 5404 IFT(5)=1THENCH=CH+7
  593. 5405 IFT(6)=1THENCH=CH+Y*9
  594. 5406 IFT(7)=1THENCH=CH+37
  595. 5407 IFT(8)=1THENCH=CH+17
  596. 5408 IFT(9)=1THENCH=CH+27
  597. 5409 IFT(10)=1THENCH=CH+20
  598. 5410 IFT(11)=1THENCH=CH+X*3
  599. 5411 IFT(12)=1THENCH=CH+42
  600. 5412 IFT(13)=1THENCH=CH+30
  601. 5413 RETURN
  602. 10000 PRINT"[147][159]           *DOCTORS PROVERB*":POKE53280,12
  603. 10001 A=INT(RND(1)*3)+1
  604. 10002 IFA=1THENGOTO10005
  605. 10003 IFA=2THENGOTO10020
  606. 10004 IFA=3THENGOTO10030
  607. 10005 PRINT"[144]WHETHER YOUR PATIENT HAD A HEART ATTACK,"
  608. 10006 PRINT"[145]OR YOU JUST SIMPLY CRACKED HIS BACK,"
  609. 10007 PRINT"YOUR PATIENT IS ON THAT OLD TRAIN TRACK,"
  610. 10008 PRINT"[145]YOUR PLASMA NOR OXYGEN CAN GET HIM BACK."
  611. 10009 PRINT"SO GET OUT THAT OLD DOCTORS BOOK,"
  612. 10010 PRINT"AND STAY OFF THAT WITCHES BROOM,"
  613. 10011 PRINT"AND WE'LL SEE YOU IN THE OPERATING ROOM.":GOTO10050
  614. 10020 PRINT"[144]IF YOUR PATIENT HAD NO LOVE OF LIFE,"
  615. 10021 PRINT"OR YOU SLICED WITH THE WRONG KNIFE,"
  616. 10022 PRINT"YOUR PATIENT IS OUT PLAYING A FIFE,"
  617. 10023 PRINT"MAYBE WHERE HE'S NOW GONE WILL SUFFICE."
  618. 10024 PRINT"SO READ IN YOUR OLD DOCTORS PAGES,"
  619. 10025 PRINT"HOW DOCTORS ARE SUPPOSED TO HAVE SAV-ED,"
  620. 10026 PRINT"[145]AND RETURN WITH KNOWLEDGE NOT NAKED.":GOTO10050
  621. 10030 PRINT"[144]CAN YOU CONCEIVE THE DEED YOU'VE DONE,"
  622. 10031 PRINT"DOES IT MAKE YOU MAD OR MAKE YOU RUN,"
  623. 10032 PRINT"YOUR PATIENT IS GONE AND DEAD AS DEAD,"
  624. 10033 PRINT"YOU'LL NOT SEE HIM ACCEPT IN YOUR HEAD,"
  625. 10034 PRINT"SO STUDY THAT GOOD DOCTORS BOOK,"
  626. 10035 PRINT"AND STAY AWAY FROM THOSE WHO DRINK,"
  627. 10036 PRINT"MAYBE YOUR NEXT OPERATION WONT STINK.":GOTO10050
  628. 10050 IFE=1THENCLR:HR=85:BW=90:BR=70:CH=350:E=1:DIMT(13):A=INT(RND(1)*3)+5
  629. 10052 IFE=2THENCLR:HR=90:BW=60:BR=50:CH=350:E=2:DIMT(13):A=INT(RND(1)*3)+5
  630. 10053 IFE=3THENCLR:HR=60:BW=50:BR=70:CH=350:E=3:DIMT(13):A=INT(RND(1)*3)+5
  631. 10054 IFE=1THENE$=" BONE "
  632. 10055 IFE=2THENE$=" LUNG "
  633. 10056 IFE=3THENE$=" HEART "
  634. 10060 FORB=55336TO55736:POKEB,A:FORD=1TO15:NEXTD:NEXTB
  635. 10065 GETA$:IFA$><""THENGOTO10070
  636. 10066 PRINT"[147]GAME OVER":GOTO10065
  637. 10070 POKE53280,9:PA=5:GOTO2
  638. 20000 PRINT"[147]GAME OVER":GOTO20000
  639.